home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuicKeys / For Programmers Only.sea / Pascal Examples / sample.r < prev    next >
Text File  |  1991-06-22  |  2KB  |  70 lines
  1. /*************************
  2.     $Workfile$
  3.     $Revision$
  4.                             
  5.     QuicKeys sample extension key definition
  6.  
  7.     © 1990 CE Software, Inc.  All rights reserved.
  8.             
  9.     For QuicKeys 2 Extension Sample source code you have a royalty-free right
  10.     to include object code derived from this Sample source code in programs
  11.     that you develop.  You also have the right to use, distribute, and license
  12.     such programs to third parties without payment of any further license fees
  13.     to CE Software, Inc., so long as a copyright notice sufficient to protect
  14.     your copyright for your software in the United States or any other country;
  15.     is included in the graphic display of your software and on the labels
  16.     affixed to the media on which your software is distributed.
  17.  
  18.     WHEN    WHO        WHAT
  19. •••••
  20.     9/5        mkg        created file
  21.     6/17    mkg        add balloon help example
  22. •••••
  23. */
  24.  
  25. #include "types.r"
  26. #include "systypes.r"
  27. #include "balloontypes.r"
  28.  
  29. resource 'vers' (1) {
  30.     0x01, 0x10, release, 0x00, verUS,
  31.     "1.1",
  32.     "Sample External 1.1 ©1990-91 CE Software, Inc."
  33. };
  34.         
  35. resource 'vers' (2) {
  36.     0x02,0x00,release, 0x00, verUS,
  37.     "2.0",
  38.     "QuicKeys 2™ Extension"
  39. };
  40.         
  41. resource 'DITL' (-14348, purgeable) {
  42.     {    /* array DITLarray: 2elements */
  43.         /* [1] */ { 85,  140, 102,  190}, EditText { enabled, "" },
  44.         /* [2] */ { 85,  20,  105,  130}, StaticText { disabled, "Seconds to wait:" },
  45.         /* [3] */ {  0,   0,    0,    0}, HelpItem { disabled, HMScanhdlg {-14348} },
  46.     } };
  47.  
  48. resource 'hdlg' (-14348) {
  49.     HelpMgrVersion,
  50.     0,    /* number of items to skip (filled in at run time) */
  51.     hmDefaultOptions, 0, 0, HMSkipItem{},
  52.     {    /* array DITLarray: 2elements */
  53.         /* [1] edittext item */
  54.         HMStringItem { { 0, 0}, {0, 0, 0, 0},
  55.             "Type a number in this field.",
  56.             "Type a number in this field.",
  57.             "", "" },
  58.         
  59.         /* [2] static text item */ 
  60.         HMSkipItem{},
  61.     } };
  62.  
  63. data 'SICN' (-14348) {
  64.     $"00 00 04 00 06 00 05 00 04 80 04 78 04 78 04 78"
  65.     $"04 78 04 78 04 78 04 80 05 00 06 00 04 00 00 00"
  66. };
  67.  
  68. include "SampleUI.QkyC";
  69. include "SampleX.QkyC";
  70.